R Notebook

library(tidyverse)
library(plotly)

library(lubridate)
library(ggplot2)
library(gganimate)
library(devtools)
library(gifski)
library(png)
library(leaflet)

Find a data set on Transportation and create one interactive plot using plotly. All of your axes, titles, subtitles, and captions must be labeled and all of the visualizations must be colorful and easy to read.

#install.packages("plotly")
#install.packages("htmlwidgets")

library(plotly)
packageVersion('plotly')

flights <- read.csv("feb-20-us-flight-delay.csv", stringsAsFactors = TRUE)
flights

originflights

originflights <- flights %>% group_by(DAY_OF_WEEK) %>% summarise(Avg = mean(DISTANCE))
a <- ggplot(originflights, aes(x = DAY_OF_WEEK, y = Avg, fill = DAY_OF_WEEK)) +
  geom_bar(stat = "identity") + 
  theme(legend.position = "none") +
  labs(title = "Average Distance of Days of Week",
       subtitle = "The graph shows the average flight distance of every day of the week",
       x = "Days of the Week",
       y = "Average Distance") 
a

#ggplotly(a)

aF <- ggplot(flights, aes(x = DAY_OF_WEEK, 
                                fill = DISTANCE,
                          color = ORIGIN)) + 
              geom_bar(position = "dodge") + 
  theme(legend.position = "none") +
  labs(title = "Distance of Days of Week",
       subtitle = "The graph shows the distribution for flight distance of every day of the week",
       x = "Days of the Week",
       y = "Distance") 

ggplotly(aF)

position_dodge requires non-overlapping x intervals

ggsave(file = "DistanceDaysWeek.png", plot = aF)

Saving 7.29 x 4.5 in image